home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / psa.asc < prev    next >
Text File  |  1990-10-14  |  2KB  |  53 lines
  1. 10    CLS
  2. 30    PRINT" PSA calculator Program"
  3. 40    INPUT" Transmitter Power (unmodulated) please";PHI
  4. 50    INPUT" Reduced Power Required:";PLOW
  5. 60    INPUT" Frequency in kHz:";F
  6. 70    INPUT" Impedance (usualy 50 ohms):";Z
  7. 80    REM
  8. 90    REM
  9. 100   REM
  10. 110   REM
  11. 120   PDIF=PHI - PLOW
  12. 130   PRINT"....WORKING"
  13. 140   IHI=SQR(PHI/Z):ILOW=SQR(PLOW/Z)
  14. 150   IDIF=PHI - PLOW
  15. 160   IDUMMY=SQR(IDIF/Z)
  16. 170   MI=SQR(PDIF/PLOW)
  17. 180   XL=  Z/MI:                 REM INDUCTOR
  18. 190   XC= (MI*Z):                REM CAPACITOR
  19. 200   L=159*XL/F:                REM 159=1/2*Pi. L IN uHy
  20. 210   C=159000000#/(F*XC):        REM C IN pF
  21. 220   REM
  22. 230   REM
  23. 240   REM
  24. 250   PRINT"For ";PLOW;" watts, you will need"
  25. 260   PRINT"an inductor of ";L;" uHy in series"
  26. 270   PRINT"with your dummy load.  And a capacitor"
  27. 280   PRINT"of ";C;" pF in series with the "
  28. 290   PRINT"antenna system."
  29. 300   PRINT
  30. 310   PRINT
  31. 320   PRINT
  32. 330   PRINT"The current from the transmitter is ";IHI;" amps."
  33. 340   PRINT"The current to the antenna system is ";ILOW;" amps."
  34. 350   PRINT"The current to the dummy load is ";IDUMMY;" amps."
  35. 360   INPUT"Again ";A$: A=ASC(A$):IF A=78 OR A=110 THEN END
  36. 370   GOTO 40
  37. 380   REM
  38. 390   REM
  39. 400   REM           based on a circuit by Earl Travis
  40. 410   REM           See George Brown & John Balwin article
  41. 420   REM           "Adjusting Unequal Tower Broadcast
  42. 430   REM           Arrays" from the December 1943 issue of
  43. 440   REM           Electronics.
  44. 450   REM
  45. 460   REM           by bob groome
  46. 470   REM           824 W. Main St.
  47. 480   REM           Richmond, In 47374
  48. 490   REM           release for all non-commercial uses.
  49. 500   REM           it is reccomended that these results
  50. 510   REM           be confirmed by your professional
  51. 520   REM           broadcast engineering consultant
  52. 530   REM           4/24/87
  53.